home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
I_WOODWI.DIR
/
00175_Script_175
< prev
next >
Wrap
Text File
|
1996-03-12
|
2KB
|
72 lines
on resetTuning
global currentTuning
put "TUNING 1 UP" into currentTuning
go currentTuning
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
go the frame + 1
put "TUNING 3 UP" into currentTuning
end resetTuning
on hitTimpani
global currentTuning
put "TUNING"&getTuningNum(currentTuning) into theTimpaniSound
puppetSound theTimpaniSound
end hitTimpani
on tuneUp
tuneDrum "UP"
end tuneUp
on tuneDown
tuneDrum "DOWN"
end tuneDown
on tuneDrum upOrDown
global currentTuning -- Name of current marker
put getTuningNum(currentTuning) into oldNum
if upOrDown = "UP" then
put oldNum + 1 into nextNum
else
put oldNum - 1 into nextNum
end if
put integer(validNum(nextNum,1,5)) into nextNum
if nextNum = oldNum then exit
put "TUNING"&&nextNum&&upOrDown into nextTuningMarker
put nextTuningMarker into currentTuning
go currentTuning
end tuneDrum
on getTuningNum Tuning
return word 2 of tuning
end getTuningNum
on getTuningDir Tuning
return word 3 of tuning
end getTuningDir
on validNum theNum, theMin, theMax
if theNum < theMin then return theMin
else if theNum > theMax then return theMax
else return theNum
end validNum
on goGameToMenu -- OVERRIDES USUAL SCRIPT IN SHARED CAST
go "Woodwind menu"
unfreezeDigitalVideo
end goGameToMenu